home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / JUN / PTRPDEMO / ETEST14.TRP < prev    next >
Text File  |  1995-03-20  |  131b  |  11 lines
  1. procedure main
  2. var
  3.         f : text = 'xxx'
  4. endVar
  5.         rewrite(f)
  6.         writeln(f, '1')
  7.         close(f)
  8. endProc
  9.  
  10.  
  11.